﻿Public Partial Class DateTime
    Inherits Catalyst.Web.DynamicData.EqualsFilterUserControlBase

    Public Overrides Property Value() As String
        Get
            Return Calendar1.SelectedDate.ToString()
        End Get
        Set(ByVal value As String)
            Dim [date] As Date
            If System.DateTime.TryParse(value, [date]) Then
                Calendar1.SelectedDate = [date]
            End If
        End Set
    End Property

    Public Overrides ReadOnly Property ValueType() As System.TypeCode
        Get
            Return Me.Column.TypeCode
        End Get
    End Property
End Class